home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_8341.txt < prev    next >
Text File  |  1991-03-02  |  3KB  |  134 lines
  1. -- card: 8341 from stack: in
  2. -- bmap block id: 8916
  3. -- flags: 4000
  4. -- background id: 8189
  5. -- name: Cylinder
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Area Of Side
  11.   get (2*pi*card field "Radius")*card field "Height"
  12.   put it into card field "Area of Side"
  13.  
  14.   --Calculate Total Area
  15.   get (2*pi*card field "Radius"*card field "Height") +(2*pi*card field "Radius"^2)
  16.   put it into card field "Total Area"
  17.  
  18.   --Calculate Volume
  19.   get (pi*card field "Radius"^2)*card field "Height"
  20.   put it into card field "Volume"
  21.  
  22.   --Calculate Circumference
  23.   get 2*pi*card field "Radius"
  24.   put it into card field "Circumference"
  25. end mouseUp
  26.  
  27.  
  28. -- part 1 (field)
  29. -- low flags: 00
  30. -- high flags: 0002
  31. -- rect: left=318 top=78 right=95 bottom=447
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 3
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Radius
  40.  
  41.  
  42. -- part 2 (field)
  43. -- low flags: 00
  44. -- high flags: 0002
  45. -- rect: left=318 top=99 right=116 bottom=447
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 3
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Height
  54.  
  55.  
  56. -- part 3 (field)
  57. -- low flags: 01
  58. -- high flags: 0004
  59. -- rect: left=319 top=162 right=181 bottom=448
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Area of Side
  68.  
  69.  
  70. -- part 4 (field)
  71. -- low flags: 01
  72. -- high flags: 0004
  73. -- rect: left=319 top=201 right=220 bottom=448
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Total Area
  82.  
  83.  
  84. -- part 5 (field)
  85. -- low flags: 01
  86. -- high flags: 0004
  87. -- rect: left=319 top=241 right=260 bottom=448
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Volume
  96.  
  97.  
  98. -- part 6 (field)
  99. -- low flags: 01
  100. -- high flags: 0004
  101. -- rect: left=319 top=274 right=293 bottom=448
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Circumference
  110.  
  111.  
  112. -- part contents for card part 1
  113. ----- text -----
  114. .500000
  115.  
  116. -- part contents for card part 2
  117. ----- text -----
  118. 1.000000
  119.  
  120. -- part contents for card part 3
  121. ----- text -----
  122. 3.141593
  123.  
  124. -- part contents for card part 4
  125. ----- text -----
  126. 4.712389
  127.  
  128. -- part contents for card part 5
  129. ----- text -----
  130. 0.785398
  131.  
  132. -- part contents for card part 6
  133. ----- text -----
  134. 3.141593